home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / c64-preservation-project / educational / intro_to_basic_part_2[commodore_1983].nbz / unit17prog64 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  310 b   |  14 lines
  1. 5 REM UNIT17PROG64
  2. 10 REM DEBUG THIS PROGRAM!
  3. 20 INPUT"NAME";N$
  4. 30 IFN$<>"JIM"THEN40:A$="JAMES":GOTO100
  5. 40 IFN$<>"BOB"THEN 50:A$="ROBERT":GOTO100
  6. 50 IFN$<>"KATE"THEN60:A$="KATHERINE":GOTO100
  7. 60 IFN$<>"PENNY"THEN 70:A$="PENELOPE":GOTO100
  8. 70 PRINT N$;" IS NOT"
  9. 80 PRINT"SHORT FOR ANYTHING."
  10. 90 GOTO10
  11. 100 PRINT"N$;" IS SHORT"
  12. 110 [153]"FOR ";A$
  13. 120 [137]10
  14.